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Data 


@ ’ 
BEGIN COMMENT CREATES HARD COPY OF CANDE FILES FUR ULSERS3 000100C0 
@ REAL ITeJeKeXeV¥oZeNUMUSERS* NUM ILES*USERCODE» MEDI As FMEDs 00010100 
S ~rovn ns GOMMENTE * TITLED 5900/8700 HARK XIV SYSTEM MELEASE — 8. 90020110. _ 
_ * FILE ID? SYMBOL/HARD TAPE IDs SYMBUL2/FILEOOO i. 00010111 
@: * THIS MATERIAL IS PROPRIETARY TG BURROUGHS CORPORATION * 00010112 
| rn _* AND IS NOT TO BE REPRODUCED» USEDs UR DISCLOSED ==  » 00010113... 
“i * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00010114 
@; * WRITTEN AUTHORIZATION LF THE PATENT DIVISION OF " 00010115 
oa Se * BURROUGHS CORPORATION» DETROUITs MICHIGAN 48232 3 x. 00030116 20 
: * * 00010117 
@: * COPYRIGHT (C) 1971» 1972 BURROUGHS CORPORATION * 00010118 
Westy dale *  AA320206.AA386657 : ee ee SECM Sh ht CE ee 
10 ROWsF IRSTUSER*L ASTUSER»s DATE> THING; 00010200 
@: BOOLEAN FN3 00010300 
ne LABEL NEWROWPFINI3 . as A vince ce garish nO GOTO Os GS os oan EE ten i 
13 DEFINE PRINT=2#s &MENIA DIGITS FOR FILES TO BE PRINTED» 00010500 
@': PUNCH23#» XPUNCHED OR 00010600 
A esi ue heae ie » CAPE ORs SCOPIED..1TO TARE oo cele 2 cc sd oa. & Rbearcanceatenel! eae oan c ID ORO FOO. chee eich ee 
18 DEFINE ROWMAX=9#s 00010800 
ev USERMAX=49#> 00010900 
Se tala te SPs WORDMAX=5#3 ces ett ¢tmnmeeen a 80921000. 
ie DEFINE NUMINROWCNUMINROWS J=FILENAMECNUMINROW1>01.C33%15)4> 00011100 
ee» NXTROWCNXTROWL) =F TLENAMECNXTROW120),C18%15)] #» 00011200 
ee LASTAPE(LASTAPEL =F ILENAMECLASTAPELsO0]+L939)]#2 0 00011300 
oe FMEDIA=(6%6]#; 00011400 
@ » DEFINE MATCHC MATCH] »MATCHZ )SREALCBUULEANC(CMATCH1) EGY 00011500 
— e a BOOLEAN CMATCH2) )SREALCNOT FALSE )Ba oc . 00011600.. ... 
ia OEFINE LEFTARROWS "ene; 00011700 
ia DEFINE BLANKS=3"060606060606060"#5 00011800 
—o — DER INE. SITE23%062316356606060"#3, 0 geoqiedd 
: ARRAY DAYSCOt12]3 00012000 
er SAVE ARRAY STUFF[O229], BUFFLG?9]» JUNKLO!1)> 00012100 
Bake teria ce ERE OPE MANN ae Sieg aut eg ee ia aly na ae as See eee Barak te St OU SOOO. 
: FILENAME [O$USERMAX» OfROWMAX 1)» 00012300 
@» WORDLO?WORDMAX}3 00012400 
So RORMATNOFILES(™ NO FILES To coPY")s oo p00ke2500. ti isi‘ié‘s 
5a FORMAT TOOBAD(” NO SUCH FILECS)")3 00012600 
@* FILE DIRECTORY DISK RANDUM “VIRCTRY" "DISK™"(1s30)3 00012700 
pes ee cee ee Lee OE Adee we O Dp cto ahs a Me alae, Meee NR a la nent ole thee ust we Se et OUT PBOU xc. ito enn dituttencds 
« FILE LINE 1 (2915)3 00012900 «<= 
eo» FILE PNCH O (2010)3 00013000  <———— 
Be SAVE FILE TPE. 2. €29562109SAVE 3023 Been 0191.0 hc 6 01 § nen ee ee 
" FILE DISKFILE DISK SERIAL (3910530); 00013200 
@: SSS SS SSESSSESSSESEST TS SSES SSE SSS USSTSESESESESE SEE TS CEE ESE ETE SELECT ET UUREELL 
ie coer mee PROCEDURE SETCUSERCONE)s = = 00013400 Hs 
a VALUE USERCUDE3 REAL USERCODES 00013500 
COMMUNICATEC"10)3 00013600 
a BEREEEEEREEAEELELL URL LL ALLEL ALE LEY LEARLARLSL ALLL SLL URGBEAKLASAETELBTSZSEOOUIS7OO =——— 
STREAM PROCEDURE FORMATICBUFFSFN)5 00013800 
BEGIN 00013900 
SLE ENG DISSBUFFS bce eae aks Pea Ss a os _ 00014000 
OSts22LIT" NO ROOM IN TABLES FOR"S 00014400 
DSt=16 CHRs DSt=LIT LEFTARRONWS 00014200 
ENDS STTTTRTTTTTTTTTTETTTCTTTTTT TE 00014300 
RLATLALARVVALLTLLSATLLLAVVLARTLELSEERLELLLAEELLESBLLLLLLSTLATEKYLETLZSBB 00014400 


__OSts? CHRs 


STREAM PROCEDURE NOFILECBUFFsTYPE)3 00014500 

pct i GN a Pa ante ig tg _ 00014600. 
OIssBUFFS SItSTYPEs SrrsSlet; 00014700 
DS¢ai4 LIT" NO FILES FOR *3 00014800 


00014900 


Data Documenis/ins. 


o- e 
| DSt=#LI1T LEFTARROWS 00015000 
e@ ENDS 00015100 ® 
eee _ MERYALEERERLL LL LEL EARLE ELLERY ALARA ALUELELL LATE A SEREGEEARERABHEEEESLEESGZO0019200 dd 
f REAL STREAM PROCEDURE UCTC@NV(DECV)3 00015300 | ’ 
@” VALUE DECV3 | 00015400 1@ 
a] BEGIN. SO Ste Bg Se ape I MS rae yey reed a ath taeda St dt OOOO a: re ee ery eee ae ee eet 
4 SItsLOC DECVs DIs=LOC OCTCONVs DSt=Be UCT» 00015600 4 
@* END} 00015700 1@ 
6) BERR KEEAAAA AE ASAE LASSER SEARLES AAAAASESASELEL SEE ZARSLALLLELYAASLAL LLL EZSLOOUIS AON. ni ait aale ttm ates 6 
REAL STREAM PROCEDURE DECCUNVCOCTV)3 00015900 . . 7 
e: VALUE OCTV3 00016000 1@ 
Wo ee REG ENG Seki ah cae oe Bate Stic ean pif Rg Rae hh oh wana Bderah ny, Moat talker HES eat 2 OOP L BGO Ooze yee: oxy. te teh taw nny Solanaceae Mattes en A es a ee i 
vm SIt=LOC OCTV3. “DItsLOc DECCONVs Dotse DEG: 00016200 
, ENDS 00016300 1@ 
Mn eusure cov LR BRERRERRREABELASLALRA SELES SEEDS SORRERLE PA ELSE RELELELELELELESSLYASSSELZO0N1H400 —is«i« ee rt er ns EET nc bo om 
y STREAM PROCEDURE BLANKCBUFF*WORD)3 00016500 a 
eo: BEGIN DIt=BUFFS DStsLIT" "3 00016600 @ 
esas tas, ge ST#SWORDS SIs=Siei13. OS:s7 CHRA  ... adh op Sou cache haan et an Ate OU TN TOO a mes, Lo. ndash aha oct Ste nua RN eos ce tenes se ea tele 1 
Me END3 00016800 e 
@” RAREST E TA TATA TARDE ASAE I ETD) aah et Tea a2 Lo SY ERE SERNA UAENNT ERNIE TETAOOUI OC . 1@ 
1B eee. STREAM PROCEDURE FORMATACBURF 2wORDIS. a Lain eee bes cae nee . OOO 7000. oid pec Piel a tats ese a Se Bo Sh a Se eat eae 
i. BEGIN 00017300 | la 
e: STt=WORDS SI8=SI+13 UIP=BUFF3 00027200 hg 
oe ee .OSts9.LIT" NO. USER "5 7 ae ee s Needle tudeibene sont OM, 2h oe OO AMOI. & sate, Rip aeacttns ecu nte te eat Pe ae e .) 
w2 7C1F SC=ALPHA THEN DSt=CHR ELSE uP GUT)3 00017400 i 
@ * sLIT LEFTARROWS 00017500 21@ 
2s een eee ee On Aine ee SOC OTE OCs ik Ne ile 6 ey ate ee ee ae 
ie PTET ET TTT TELE TTT ETE TTT CETL LETT LEERLET ECCT TUTE TOCTCETETT TTT Terre 00017700 
@@ STREAM PROCEDURE FORMATA( BUFF FNs TYPED; 00017800 @ 
i PERE ne <1 cn 1 See ee SP, NU RIS tn de Be a ate i AA ea aya tates Reha cana ND ial ol aa Re me) PN Cie eo aie ie re a eee Sete : 
5 STtsFN3_ 00018000 - 
e DI?=BUFF3 DS!=CHR3 00018100 21@ 
BO ee hb CTE. SCZALPHA THEN DSSSCHR ELSE JUMP OUT)3 Oo 0018200 30 
ia OSi#s11 LIT" COPIED TU 3 00018300 3 | 
@” STt=TYPE3 S1:sS1+13 DSt=7 CHR 00018400 - 1@ 
PS eee oe DS LELLT.UWLEF TARR OMS. Bi cath alec Oe Se dt a ls Ey eR RON Se Phare Rah tM as AO OSA OO) Pet hatin a, maciiicess fuga helene 3 Oa ere a Oe 
ial ENDS 00018600 
e ia ELELEULLLASELALLLLLYLLLULARSLA RELL LASSE AALHL AEG LEYLA BEELETELALLAGREVELELSBSEZOOULB700 31@ 
pe STREAM PROCEDURE HEADING(BUFFoFNS,DATEsWORDDZ OD 3e 
BY BEGIN DIS=BUFF3 SItsFNS 00018900 . 7 
eo» DSts5 LIT"FILES"3 DStSCHRS 00019000 | 1@ 
| a _ASCIF SC#ALPHA THEN OSt=CHR ELSE IF Sc="/" THEN DSSSCHR —«—s—s§$- «s—s 0019400 ——“i‘“‘“‘<“‘“‘iéit~S 28 
he ELSE JUMP QUT)3 00019200 40 
@ :: DStsa LIT" = "3 00019300 1@ 
Pee SERSNORDS SUR BST +1: OS255 CoRs NSted LITMED?S MS o0019s00 . ; erate Ge ods cep eset ote a a a ate ete ete ea a ae 
: SI:sQATEsS OSt#B8 CHR} DS3216 LIT" "3 00019500 is 
@ END; 00019600 4@ 
RE RER ERS REARS ESET SOLA LSE SLE SL LALLA BLE TELE LHR SLEL TERESA GEE LIVE ETZLOON19700 eens : Sr een ne 49 
STREAM PROCEDURE SHIFTCBUFF*STUFF)3 00019800 “6 
Or BEGIN LOCAL A3 00019900 |@ 
oe DRS BUFFS 2°CST2=S14360)3 DISBsTUFFS QSESLITMI"S 020000 oop Cohn Orie una tohe te bales eh st Ta Reta ee Ba at 49 
pol . TALLY#983 00020100 a 
@ 7TCIF SC#"O" THEN BEGIN OStsLiT” "35 STeeSyois TALLY#sTALLY+63 END 00020200 1 @ 
ELSE JUMP OUTS ig salad ae Lot Na cre An Mtn a oa alt an wast pass AMO OW Oe, Saat niet GO a ae eas fay ee ee 2 
“AQtsTALLYS DStSA CHRS DSt=LIT" "3 00020400 “ls 
@ STssBUFFS 2°0S1=36 CHR)S DSt26 LIIn: "3 00020500 s1@ 
Peer |?) femenceenreret ee en eee Se ea Ra ne Pat ee ot 00020600 
REVLELA ALATA TALL VLA UAAL STATA TELA ATL VALLRATYHLSRBLUAGUVRRLATLXFXXBRLOOVZO70T 55 
@ STREAM PROCEDURE MAKEFILECAsBsNAMEJI 00020800 : J@ 
Sou BOGEN CABELL tele) 2 tee a RS teh ot et ee ee ODO 20908 eae nme 2, 
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po & @ 
STtsA3 SIlt=S]1+23 00021000 e 
DIt=NAME3 DSS=LIT"™ "5 00021100 
Ceanreee eee 1S ae ey ee eee patie te en ee Pee 00021200 eres eae ea 
fa OCIF SCSALPHA THEN BEGIN DS!=CHR3 TALLYS=TALLY 463 ENO 00021300 : 
2 ELSE JUMP OUT)3 00021400 2@ 
(cnet iat oe a CS BR gO 8 Ra 8 Leah te EE are es EAL Hig Bab lint wal cn cetnta tl ONO 2 EEO Ox. S be a artes en ca 3 
| SI:sBs Slt*xS1+13 00021600 ‘le 
5 7CIF SC2ALPHA THEN BEGIN DS#=CHRs TALLY?=TALLY+#63 END 00021700 : 
eee anties say eect ee RU MP OUT EB ed rs, nlc nuit «fal at cctun cues dein vs antennae Pesan ee Ee Ce Be vs OO AOD. «i, ogepmictenia ees ot petites SLASH 8 
AQtsTALLYs ACDOSteLItT”™ "93 00021900 le 
- END; 00022000 J 
PST STFS TS ISTESE TESST SS ST VSS TESTS TVELES SEES TSSSITESESESSSUSSSTT SSS SS TEST TRUER Te spin, ces 2s rs 9 
4 REAL STREAM PROCEDURE ANALYZECINPUIT*CUDEsTAa) 3 00VEcZ00 P 
7 BEGIN LABEL L»LABsBEL3 00022300 /@ 
i ae LOCAL STARTebe C3 SO Bie BOO Aion) Dee Go pee Aaa Sane a Bee ro a 
13 SIssINPUT3 00022500 Ie 
is LAB! IF SC=" " THER GEGIN SIt=SI+13 GO TO LAB END} 00022600 4 
Vrltie oe spoe a If. S¢ #.LEFTARROW THEN.GO TO Ls. ... ; itis ethene R whticecseade 8 OO Ue? POO. ie 4s: Se a Me cate athe 2 
ie START?=S]3 00022800 1@ 
7 SI?=TAB3 00022900 y 
1B ee eens ae eee. WORDMAXCBLSSIS | Oe ee ROR I ee BO TEE CET Se ETM OTEE READ 00023000 he Ie Le eS eh AIP S ce RE eer 
ie DI1t=LOC Cs DiteDle7s DSt=CHR: 00023100 ‘9 
a OIt=STARTS 00023200 4 @ 
Ayo Re. SCsD0 THEN. . edits grace sta wratpisegubsplee Zadeh peesitin enti ihea cies aentsle seul nase OOS TAO 0 Bidet Wegener Pe als Set 2t 
a BEGIN ANALYZE? =TALLY3 00023400 1e@ 
fl Ct=D13 SI8sC; 00023500 a 
She See ee nee . JUMP OUT. TO ys... 00023600... BNL Atal bel at a tte SMe Soars 24 
ee ENO} 00023700 : e 
2 SIs=Bs SIteSl+gQs TALLY?=TALLY+4)3 00023800 ii 
‘——— uals gE OB ANALY LENT NN Sa icles pi a aah OS ION Os le rena eagle aa aye if 
g ST3=START3 00024000 1@ 
val L? DYssCODEs 2¢ 06024100 e 
bp BEL? If SC" " THEN BEGIN SlieSl+ls GO TO BEL ENDS = == oo 024200 ee i dhe ase eee et sa 
: IF SC="/" THEN BEGIN SI:=S14+14 GO TO BEL ENDS 00024300 3] 
ae OSteLITronrs 00024400 1@ 
seater TALLY 2273 PNT OSTECHRT TRU P et GCL UGSE Papo AME OO. BiB Deceit SE ie eco 3 
2a 7CIF SCeALPHA THEN BEGIN OS#sCHk; TALLY?=sTALLY+63 END 00024600 
5 ELSE JUMP OUT)3 00024700 1@ 
Phos : cB STALL YF BOOS 8 NS cy al oe wt etre eae eee ae ae al te le rate OD ae ether gates tes ta tein we tnd ita ale ate =e 
2 ENDS 00024900 z 
sa RESLLLLARSAELULAARALE TALL LALA LAR LLAR ALAS RAL LATAELLGERLLKVELVXTYBITXO00 25000 3@ 
a REAL STREAM PROCEDURE YESORNOCANS)$ 00025100, poe as 
I BEGIN LABEL L3 00025200 9 
“ SIt=ANS3 00025300 |@ 
a +t IF Scs" " THEN BEGIN Syt=St+13 GU TOL ENDS OMS HOO ee ee 
ba “IF SC#"Y" THEN TALLY?e1 ELSE 00025500 4 
Ma IF SCSMN" THEN TALLY3#0 ELSE TALLY: 233 00025600 1®@ 
id sel tia os ee ORE ALR so oii ok ee il nee eterna ee es a ae oY OURO POO tx ket oh ont bee ba 
END3 00025800 16 
” VEBVLLLAALLBLALARALALHL ERAT AA ELGELSLGARLLARTSLULLLAGHSVASELLELLATRLSZEVHHTXSXO00ZSIOO | @ 
PROCEDURE SEARCHDIRECTORYS | en ee eae Sinan MOOZ6000 ns ee “8 
BEGIN LABEL REED» STORE» ‘BUGOUT*TSER} 00026100 49 
Zts153 00026200 | @ 
cia BO Ric 6S sive ene Aen oys a SS Sera Mae ae ae ee __ 00026300 “ a 
READCDIRECTORYLZ]»30*STUFFL*J)3 00026400 5 e 
READ SEEKCDIRECTORY(2%=Z416])3 00026500 5 
FOR Vte28 STEP =2 UNTIL © 00 __ 90026600 _ ee ee 54 
IF (XtaSTuFFCUIIE3I"1L14" THEN GO TO BUGOUT ELSE 00026700 55 
IF X NE@ 3°14" AND X.FMEDIA GEG 2 AND xefMEDIA LEQ 5 THEN . 00026800 «| @ 
BEGIN. anintonte tei eee 00026900 y 
@ °® 
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| USERCODE £=STURF[U+1]3 00027000 
FOR 12=0 STEP 1 UNTIL NUMUSERS DO 00027100 
Sees ee ee eds EP MTOM CUS RSE Te USER CODE. TAN oe nooo sl Start awe ket eee OT OOO. tes ong cect a beau ee 
' BEGIN | 00027300 
ROW?s73 : 00027400 
WHILE NUMINR OWE TI) GEQ ROWMAX OO 000 ersan 
; IF NXTROWCIJ20 THEN 00027600 
P IF NUMUSERS GEQ USERMAX THEW GU TU TSER 00027700 
. adaptive ihe ee NT ROW De Tee NUMUSE RSLS NUMUS EES afoot lal el eer a OOO RF BOO aio, oi cases tee ee = 
a ELSE Is=NxTROWCI]3 . 00027900 
|8 GO TO STORES 00028000 
2 ei eo ENDS reer a aa Nea EE ae Hy IBD al tage ra a Ra toa es mas ees awe OO A OO a. gh beth ei ae cae ene ce, Se 
Bi IF NUMUSERS. LSS” “USERMAX THEN 00028200 
i BEGIN 00028300 
ae USERSCROWSS] S=NUMUSERSPSNUMUSERS +1) 3=USENCODES OO oO BMOON 
Ms STORES NUMINROWCIJ)$ ey? SNUMINROWLIIJ413 00028500 
4 FILENAMEL Ie Y] 82X35 00028600 
area eee NUMFILESS#NUMEILES Shs ne cee nnn nee ne OOO PB FOO pose 
we IF XeFMEDIA = TAPE THEN 00028800 
a BEGIN LASTAPELIIJ3=Y3 00028900 
i eee WHILE. ROW LSS 1.00 BEGIN LASTAPELD ROW) ge Os mein eecennmee AOD GOO cc 
mi ROWS2NXTROWCLROW] END} 00029400 
a ENDS 00029200 
‘a eM acdc SEIN SE tne a Sie Peak ence th SG <8 aaa iy te eaSedy ne, Weber align telly snetlee eh Nad Sa alan Sees AS GOO in CNA A tense Ste te 
ig BEGIN 00029400 
TOERS MAKEFILECX»USERCUDE*s RUFF[6)), 00029500 
FORMATICBUFFICI2BUFF COV) te oe 0029600 000 | bite Nope cep om Eyed eee 
WRITECSPOs5sBUFFL#) 23 00029700 
END3 00029800 
ee ~ENDS FS Bs ce aa EE Se eB a Ta i eA Te tees ten a AN a te OOO 29900... Ne ae Seer ane ae 
GO TO REED; 00030000 
BUGOUT’ CLOSECDIRECTCRY)3 00030100 
(ge 22 0c cone en = ——..--- 00030200... Sets Raa 
ia BEVLLVALALLUVLLELBALA LALA LLLTLRATVGALTULKVALL VTLS ALLIATTLLTAGVELTEBUTUZ 00030300 
; PROCEDURE SEEIFTHEKLUTZNEEDSFILENAMES 3 00030400 
Mo BEGIN. LABEL STARToREFDeITS ee 00905800... a Sh Ae tt a 
REAL LeMs 00030600 
ps FORMAT FMT2(" FILE NAMESY")» 00030700 
i eee leet es a -AUNH OC" ANSWER MUST BE YES UR NO = TRY AGAINWe")3 2 00030800 edie eet! 
an WRITECSPOSFMT2)3 é 00030900 
pa REED? 00031000 
ps set . _READCSPQ? 10+ $) TUFE Ces Pieters ed gag) eerste Saath estate edi ene tt ee a inte Melon oy ee 3 
IF BOOLEANCX!®YESCRNOCSTUFFL*J)) THEN 00031200 
4) IF X LSS 2 THEN 00031300 
es 8 Se BEGIN foc oe oe Bs OD a Te aa i oar Uh Sle te Att Nn ce atta shang Snes Sos En agen 
. FOR J'sPRINT STEP 1 UNTIL TAPE DO 00031500 
hn BEGIN Z2s@3 Lise} | 00931600 
A BRANKO STUFPFOCOTsWORDEJIS NO BT FOOL 
be] FOR Mt=O STEP 1 UNTIL NUMUSERS UO 00031800 
i BEGIN [%=Mj 00031900 
woe wud Fo USERCQDE $ sUSER Stl] NE Oe OTE sk ee on lS 5 OU SA OU0. o> o = ee ee CTT de ie tara Rai oe 
BEGIN 00032100 
ITs FOR Kit#l STEP 1 UNTIL NUMINROWEL) DO 00032200 
wn SF FIRENAMECT oKIFMEDTASY THEN O00 000 
BEGIN 00032400 
MAKEFILECFILENAMELl*KIsUSERCUDEsSTUFFEL3eL42))3 00032500 
Ztail, | reer: ee pices Se Wheres ie De eat at OOO RPBOD. ns a Te. 
IF Ls? THEN . 00032700 
BEGIN WRITECSPOs9eSTUFFL 4) )3 00032800 
- ae Je vol i onane 900 
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END 00033000 ; 
ENDS 00033100 a 
oo LF TS SNAXTROWE TI NEO O. THEN GOTO Dy lene oe ee 00053200 ... ds a Bbcveauneedsta 2 MGR oe eo 
END 00033300 ) 
END; 00033400 1@ 
Lee a Pb GTRO THEN WRITE CSPOeL+22STUFF Ee) 00383800. Daca Bees eae 3 
ELSE IF 220 THEN 00033600 
BEGIN NOFILECBUFFCOJsWORDLiU))» 00033700 |@ 
pen eee ee es MRITECSPOe Be BUFF ORK)) 0 0. wight, 4 siucd Bay Wekbe wate ice a NAS: AO UN PRO) fone .cS, baht ates OR Searles tenon ed 6 
END 00033900 , 
END 00034000 /@ 
Po END ELSE BEGIN WRITECSPGsHUNH)2 GO TO REED ENDS 84100. t—~— eal ech ath OM, a eo ce Sead ee ° 
10 END$ 00034200 
u SEU DONC eee ee A ARARAALANNSASEERSARR TANS E86 029564%42272400094 300 W@ 
mu. BOOLEAN. PROCEOURE THERESOMETHINGTGDGS eS syee Cem tet OA WOO, ee eg tl a a A oA neat i 
i BEGIN LABEL REEDsSEXIT; 00034500 
u REAL J3 00034600 1@ 
Pees heeled) GION MAN RM la Gt WHOT GENER 2°19 2205 owes: Oe ack athe ates palate Steet gs DOOSUPOO hc. Fx. ub tenialatete nln co eect eatin te goes eeltstien oon oh Soe, i 
"6 DEFINE CODE=JuUNK#S 00034800 I 
igs IF NUMFILES NEQ O THEN 00034900 |@ 
Materotees beatae. cen BSN ers, ™. dude e6cd ea NB ace ecia sea a yeaa acta yee ta Dba, er tee da tien Sethe en reals bin ees OOS SOOO: Sky “Heth ERE lace eS ee Na tae Bae ie 
‘9 Xt=03 00035100 be 
re WRITECSPOsFMT3)3 00035200 /@ 
PY eee AEE DS READCSPOs1OeSTUFFL*#IIS _. fer cr ental, Guta pete cate tameie tnd t adhd ch vSesneaec ea te POD 300: the, Fine pte et a ee Chk oe Eire i ee a 
Ine MEDITAPSANALYZE(STUFFDL Js CODEL*)+HURDL*)) 5 00035400 a 
a IF THERESOMETHINGTCDO!=(MEDIA NEW 4) THEA 00035500 71@ 
Ps, Sy BEGIN . sighs GPS cao Gat ui dalerdacictls Molieicn x OOUSSse Om ORE ee REN on Onto Me ee ee aT 
ay IF MATCHCCODELOJ, BLANKS) THEN 0003570¢ 
% BEGIN LASTUSER?=NUMUSERS3 | 00035800 2 @ 
Pe eat ta ih a iti ine PP MRI RO Bi aed aaa a eS ne Op Sant ect pe tek Ea te Ai bo tat te le OO SOOO ou 1a Pn er Re este ee arn ee 2 
END ELSE 00036000 
BEGIN 00036100 
PY ethan oP OR, VESOe 1 00. .. ect ale ecoete nen Satede Natt ita n moa 2 OE se e OWO NO OOi  n ra cthaton en ot ee acs. 
31 FOR It=0 STEP 1 UNTIL NUMUSERS DC 00036300 
a IF MATCHCCODE(JJ+USERSLIJ) THEN 00036400 
Macau —BEGEN, LASTUSER RSE IRSTUSERR SEE oc oct sissies, watlneumedulan eacomnntersat DOOIO500 occ ceo nc  oceserceneeecne ct ee ayy Se ee 
a GQ TO EXIT3 00036600 
rl ENO3 00036700 
90 eset ovwnnn veer .oNOFTLECBUFFO«),CODELIF. [MATCH (CODEL11+BLANKS). THEN 0 ELSE. ed sei MOOV SOA OU: a, c. abu, Somsdetee liane acetates tek bei scdel op Pitot oo ote rt ee I 
WRITECSPOs 3eBUFFL¥))3 00036900 a7 


“YY 
| 
i 
i 
i 


em ni om oF FF WOR 


GO TO REEDS 00037000 4@ 
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